home *** CD-ROM | disk | FTP | other *** search
/ The SynOptics Technical Source 1994 Q1 / The SynOptics Technical Source 1994 Q1.iso / synopt.z / HEADER.PS < prev    next >
Text File  |  1992-08-13  |  1KB  |  16 lines
  1. % Copyright (c) 1986,87,89,90,91,92 by Frame Technology Corporation.
  2. /FM_PIC #$$$# def FM_PIC{/FM_HUE 0 def/FM_SAT 0 def/FM_BRIGHT 0 def
  3. /FM_CLR [[0 0][0 0][0.00 1.0][0.37 1.0][0.60 1.0][0.50 1.0][0.83 1.0][0.16 1.0]]def
  4. /FM_K{FM_CLR exch get dup 0 get/FM_HUE exch store 1 get/FM_BRT exch store FM_HUE 0 eq FM_BRT 0 eq and{1.0 FM_SAT sub setgray}{FM_HUE FM_SAT FM_BRT sethsbcolor}ifelse}def
  5. /FM_X{/FM_SAT exch 1.0 exch sub store FM_HUE 0 eq FM_BRT 0 eq and{1.0 FM_SAT sub setgray}{FM_HUE FM_SAT FM_BRT sethsbcolor}ifelse}bind def}
  6. {/FM_X{setgray}bind def/FM_K{pop}def}ifelse
  7. /FM_C{newpath moveto 3{lineto}repeat clip newpath}bind def
  8. /FM_FRM{/FM_FR save def/showpage{}def FM_C
  9. [/ffl/fth/fh/fw/fy/fx/ury/urx/lly/llx]{exch def}forall
  10. fx fw 2 div add fy fh 2 div add translate fw fh scale ffl{-1 1 scale}if
  11. fth neg rotate 1 urx llx sub div 1 lly ury sub div scale urx llx add 2 div neg
  12. ury lly add 2 div neg translate}bind def/FM_EFRM{FM_FR restore}bind def
  13. /FM_DL{setlinewidth setlinecap FM_K FM_X stroke grestore}bind def
  14. /FM_DF{FM_K FM_X eofill grestore}bind def
  15. /FM_RL{{rlineto}repeat}bind def/FM_GN{gsave FM_C moveto}bind def
  16.